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EDTSLFCOUNT = type a message with a count 16-Sep-1984 00:49: VAX-11 Bliss<-32 V4.0-74 Page 1 
- 1o=g00 138% 99:53:43 DL KSVMGMASTER CED SRCILFCOUNT.BLI:1 . (1) 
; 1 001 ZTITLE "EDTSLFCOUNT = type a message with a count' 
; ¢ § MODULE EDTSLFCOUNT ( ! Type a message with a count 
3 Z jOENT = 'v04-000' ! File: LFCOUNT.BLI Edit: JBS1006 | 
3 = 
: 5 005 : BEGIN 
: ; 33 : leueeneneueneeneerensteerentenereerecrrereereeetetentenenennnennntreseeneet 
$ ‘® ® 
g y $08 1 !® (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 
oe 010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1 gt) : ‘* ALL RIGHTS RESERVED. * 
Py ; x 
: ig 88 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: «616 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 15 0015 1 !* INCLUSI OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; Bot8 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 1 01 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 18 id \ - TRANSFERRED. * 
Ps . ea 
3 $f Ba59 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $8 oe ¢ : - CORPORATION. . 
: $e 0024 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 26 00 $ 1 !e * 
; a 00 1 !e * 
3 $8 B8 3 : ‘ atetatadeininetneriete nia in aia anata ea 
: 30 0030 1 
; 1 0031 1 !++ 
3 2 Boss 1 ! FACILITY: EDT -- The DEC Standard Editor 
; » 0033 1! 
3 $e 0034 1 ! ABSTRACT: 
3 5 0035 1! 
; 0036 1! This module writes out that portion of a Line mode message 
3 $ ott ' giving a count. 
; 33 st : ENVIRONMENT: Runs at any access mode - AST reentrant 
F $3 apes : : AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 | 
a. 0028 1 i MODIFIED BY: | 
; ak Bote 1! 
: 645 5 1 ! 1-001 - Original. DJS O02-FEB-1981. This module was created . 
; 46 Bog . 7 eutrecting the routine EDTSSFMT_STRCNT from the module EXEC.BLI. 
o) ay 0047 1! 1-005 = Regularize e-d JBS 19-Mar-1981 
s 6 0048 1 | 1-003 - Make it work for 32 or 48 bits so pass count pointer SMB 5-Feb-1982 | 
> 49 049 1 | 1-004 - Change division’ to a routine call. sme 11-Feb-1982 | 
; 50 1 ! 1-005 = Modify to use new compare macro. STS 20-0ct-198 
3 3) ith : : 1-006 - Improve the appearance of the Listing. JBS 14-Jun-1983 
; 33 0088 e- | 
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EDTSLF COUNT EDTSLF COUN type a message with a count 19- $ep-1984 VAX-11 Bliss-32 V4.0-74 Page 3. 
fous 505 EDISSENT UTRENT type a Sessage with a count 14-Sep O=1986 99: 33: i DIEKSVMGMASTERSCEDT SRCILFCOUNT.BLI:1 ’ (3) | 
3 gs $38 } ZSBTTL ‘EDTSSFMT_STRCNT = type a message with a count’ | 
:; 90 660 1 GLOBAL ROUTINE EDTSSFMT_STRCNT ( ! Type a message with a count 
>. 661 1 N, ! The count 
om 662 1 $. i Pointer to message 
. F 665 1 L ! Length of message 
3 94 664 1 ) : NOVALUE = 
: 37 0667 FUNCTIONAL DESCRIPTION: 
: 99 86 9 1 This routine upites out the portion of a message giving a count. , 
3 10 Bory : The count can be 48 bits long or less 
: 198 067 FORMAL PARAMETERS: 
: 104 0674 1: = N the count pointer, which is written as a, dog taal number unless it 
; 192 B92? } s zero, in which case it is written as 'No' 
: 107 0677 1: § ointer to a string of characters which is arreee after the count, | 
3 13 bers : Tol loued by an ‘s' unless the count is exactly 
; 119 pee ! L the Length of the sting pointed to by S. 
: 11g 068 IMPLICIT INPUTS: 
> 114 0684 1: EDTS$$L_LNO_ZERO 
3 112 eH : EDTS$L_LNOO-14 | 
: 117 0687 1! IMPLICIT OUTPUTS: 
: «118 0688 1} 
: 18 gee di sets 
> 121 0691 1 | ROUTINE VALUE: 
; \$¢ 0692 1! 
cin ee ta tp | 
; 125 0695 i SIDE EFFECTS: | 
: 127 0697 1! NONE 
: 128 0698 1 | | 
i 199 0699 1 i- | 
; 131 670) > sOBEGIN 
: 1 7 
; 133 0708 er EDTSSL 1 ag 
3 (134 0704 Stpiv 
: 135 705 EDTSSFMT_CH, 
: 136 706 EDTSSFMT~ “DCAL, 
; it 14 AG EDTSSFMT_STR; 
: 139 $708 EXTERNAL 
: 140 Brie EDTSSL_LNOO : LNOVECTOR puss. 
: 141 211 EDTSSL-LNO_ZERO : LN_BLOCK | 
: 128 6718 LOCAL 
3 6144 0714 DIGIT, 
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EDTSLFC 
EDTSSFM 
; 145 0715 LINNO : LN_BLOCK, 
; 148 at SIGNIF; 
; 14 71 
; 148 at 1+ 
; 149 71 ! Fetch the integer into a local 
; 150 720 le 
: 151 721 MOVELINE (.N, LINNO); 
: 136 07 ¢ 
3 13? Bf ? IF (LINNOEQL (EDTSSL_LNO_ZERO, LINNO)) 
; 133 4 5 gg BTROE NT OO (UPLIT ‘"No'), 2) 
; 133 $7 § BEGIN 
; 158 0728 SIGNIF = 0; 
; 159 0729 + 
; 166 0730 ! Loop once for each possible digit in the number starting with most 
3: 161 0731 ! significant 
3 166 07 § !- 
; 16 07 
3; 164 0734 3 DECR I FROM 14 TO 0 DO 
; 165 0735 4 BEGIN 
> 166 0736 4 EDTSS$LDIV (LINNO, DIGIT, .1); 
> 167 0737 4 !+ 
; 168 0738 4 ! Write the digit out if the current Site is non-zero or 
: 169 0739 4 ! we have seen a previous non zero digi 
: 170 0740 4 !- 
3; Wi 0741 4 
; ve bk 5 IF ((.DIGIT NEQ 0) OR (.SIGNIF NEQ 0)) 
. TF 0743 4 THEN 
3 «(174 0744 5 BEGIN 
3 0745 5 EDTSSFMT_CH (.DIGIT + %C'0O"); 
s 1% 0746 5 SIGNIF = .SIGNIF + 1; 
s See 0747 4 
; 178 0748 4 
; 9 0749 ; END; 
; 180 0750 
3 81 0751 END; 
3 ise B73¢ 
; 075 IF (.L NEQ 0) 
> «186 0754 THEN 
> 185 0755 BEGIN 
: 136 be 3$ EDTSSFMT_STR (.S, .L); 
3 188 1634 IF ( NOT LINNOEQL (.N, EDTSS$L_LNOO)) THEN EDTSSFMT_CH (2C's'); 
3; 190 0760 § END; 
: 191 0761 
3; 192 0762 1 END; ! of routine EDTSSFMT_SCRCNT 


-IDENT \V04-000\ 
-PSECT _EDTSCODE,NOWRT, SHR, 
ASCII \No\<0><0> 


00 00 6F 4E 00000 P.AAA: 
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EDTSLF COUNT ype @ message with a count Ib-5e 1984 VAX-11 Bliss-32 V4.0-74 Pa 5 
7 te ERT STRONY” - type a Sessege with a count 12-808-1382 99: $3 ¥ SEKDUMGMASTERSCEDT SRCSLPCOUNT.BLI:1 - (3) 


JEXTRN EDTSSLDIV EDTSSFMT_CH 
*EXTRN EDTSS MT OCML, EOTSSFMT_STR 
EXTRN EDTSS$L_LROO, EDTS$L_LNO-ZERO 
OOFC .ENTRY EDTSSFMT_STRCNT, Save R2,R3,R4,R5,R6,R7 ; 0660 
¢ B880888e 2 VAS EDTSSFMT“CH, R ; 
006 MOV EDTSSFMT-STR, : 
04 AE S§ 8501 en a ae : 0721 
+3 000000006 0 D} 1 cHPL LOu.T, LOw_2 : ort 
08 AE 000000006 ef 553 CMPW = HIGH_1, HIGH_2 ; 
A 12 00028 BNEQ 1$ : 
2 pp 0 D PUSHL #2 + 0725 
CA AF OF f PUSHAB © P. AAA : 
66 ¢ £8 000 CALLS . EDTSSFMT_STR : 
i 0 BRB 5 g 
52 D : 1$: mova #14, I ; 0734 
pp A 2$: PUSHL | : 0736 
04 AE 9F 0003C PUSHAB DIGIT : 
C aE 9F 0003F PUSHAB NNO : 
000000006 00 03 F 042 CALLS # EDTSSLDIV ; 
E D5 0004 TSTL 161 + 0742 
4 12 00048 BNEO $ : 
3 D5 00040 TSTL S1GNIF : 
9 13 0004F BEaL 4 : 
7E 6 0 C1 00051 3$ ADDL3 #48, DIGIT, -(SP) + 0745 
6 1 FB 033 CALLS #1, EDTSS$FMT_CH : 
23 D6 0005 INCL SIGNIF : 0746 
DD 2 F4 O005A 4$: SOBGEQ J, 2 : 0734 
oc AC D3 05D 5$: TSTL : 0753 
26 1 60 BEQL ; | 
7E 08 AC 7D 0006 MOVd $, =(SP) : 0756 
66 Fe 066 CALLS #2, EDTSSFMT_STR : 
50 04 AC e+e 6 ADDL3 #4. N, RO : 0758. 
000000006 00 04 BC D1 90 CMPL aN. LOW. : 
1 07 BNEO : 
000000006 00 0 8B 0 7 CMPW = (RO), ~HIGH_2 : 
7 13 4 BEQ ; 
3 73. 8F 9A 00081 68: MOVZBL #115, -(SP) ; 
6 1 FB 00085 CALLS #1, EDTSSFMT_CH ; 
04 00088 7$: RET > 0762 


; Routine Size: 137 bytes, Routine Base: _EDTSCODE + 0004 


193 9763 1 
; 194 764 1 !<BLF/PAGE> 


EDTSLF COUNT DTSLF COUNT type @ message with a count 1b-5¢ Sep-1 VAX-11 Bliss-32 V 6 
TRL bOG EDT Shr FAT_ST RCN = type a Sessege with a count =3007 138% 99: 33; 3 DISKSVMSMASTER: cto + SRCSLECOUNT.BLI:1 31 eae (4) 
: 139 O76 ] END ! of module EDTSLFCOUNT 

: 198 767 0 ELUD 

s PSECT SUMMARY 

: Name Bytes Attributes 

: _EDTSCODE 141 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; Secasss SyEROLE Sosee “oe Pages Processing 
; File Total Loaded Percent Mapped Time 
; = $52 2SDUACE: PEDT. SRC EDT.L32;1 377 8 ‘ 40 987084 
; _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 5 7 0:00.1 
3 COMMAND QUALIFIERS 
; GLISS/ENECK CF ELD, EMI TIAL .OPT IMI ZE) /HOTRACEBACE/L E504 15811. COUNT /0BJ908./9 LP COUNT MSRC$:LF COUNT. BLI/UPDATE=(ENHS:LF COUNT 
Size: 137 ogg + 4 data bytes 
Te iad Nees 1 } 
se :16. 
; Lines/CPU Mi Min: 38 


Lexemes/CPU-Min: 12199 
paneer Used: 90 pages 
; Compila 
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